home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ftpget1r / frmzip.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-07-26  |  3.9 KB  |  124 lines
  1. VERSION 4.00
  2. Begin VB.Form frmZIP 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "mcZIP Sample Application"
  5.    ClientHeight    =   3420
  6.    ClientLeft      =   2010
  7.    ClientTop       =   2160
  8.    ClientWidth     =   6195
  9.    Height          =   3825
  10.    Icon            =   "frmZIP.frx":0000
  11.    Left            =   1950
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3420
  16.    ScaleWidth      =   6195
  17.    Top             =   1815
  18.    WhatsThisButton =   -1  'True
  19.    WhatsThisHelp   =   -1  'True
  20.    Width           =   6315
  21.    Begin VB.DriveListBox Drive1 
  22.       Height          =   315
  23.       Left            =   45
  24.       TabIndex        =   2
  25.       Top             =   2655
  26.       Width           =   2535
  27.    End
  28.    Begin VB.DirListBox Dir1 
  29.       Height          =   2505
  30.       Left            =   45
  31.       TabIndex        =   0
  32.       Top             =   45
  33.       Width           =   2535
  34.    End
  35.    Begin VB.ListBox List1 
  36.       Height          =   2985
  37.       Left            =   2655
  38.       TabIndex        =   3
  39.       Top             =   45
  40.       Width           =   3480
  41.       Visible         =   0   'False
  42.    End
  43.    Begin VB.FileListBox File1 
  44.       Height          =   2985
  45.       Left            =   2655
  46.       Pattern         =   "*.zip;*.arj;*.lzh;*.lha"
  47.       TabIndex        =   1
  48.       Top             =   45
  49.       Width           =   3480
  50.    End
  51.    Begin VB.Label Label1 
  52.       AutoSize        =   -1  'True
  53.       Caption         =   "Double-click a compressed file (ZIP-, ARJ-, LZH- or LHA-format) to view its contents."
  54.       Height          =   195
  55.       Left            =   90
  56.       TabIndex        =   4
  57.       Top             =   3150
  58.       Width           =   5955
  59.    End
  60.    Begin VB.Line Line4 
  61.       BorderColor     =   &H80000011&
  62.       X1              =   45
  63.       X2              =   45
  64.       Y1              =   3105
  65.       Y2              =   3375
  66.    End
  67.    Begin VB.Line Line3 
  68.       BorderColor     =   &H80000014&
  69.       X1              =   6120
  70.       X2              =   6120
  71.       Y1              =   3120
  72.       Y2              =   3390
  73.    End
  74.    Begin VB.Line Line2 
  75.       BorderColor     =   &H80000011&
  76.       X1              =   45
  77.       X2              =   6120
  78.       Y1              =   3105
  79.       Y2              =   3105
  80.    End
  81.    Begin VB.Line Line1 
  82.       BorderColor     =   &H80000014&
  83.       X1              =   45
  84.       X2              =   6120
  85.       Y1              =   3375
  86.       Y2              =   3375
  87.    End
  88. Attribute VB_Name = "frmZIP"
  89. Attribute VB_Creatable = False
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. Private Sub Dir1_Change()
  93.    If List1.Visible Then
  94.       List1.Visible = False
  95.       Label1.Caption = "Double-click a compressed file (ZIP-, ARJ-, LZH- or LHA-format) to view its contents."
  96.    End If
  97.    File1.Path = Dir1.Path
  98. End Sub
  99. Private Sub Drive1_Change()
  100.    ' yes I know.. no error handling =)
  101.    Dir1.Path = CurDir(Drive1.Drive)
  102. End Sub
  103. Private Sub File1_DblClick()
  104.    Select Case UCase$(Right$(File1.Filename, 3))
  105.    Case "ZIP"
  106.       List1.Clear
  107.       List1.Visible = True
  108.       AddZIPfiles Dir1.Path & "\" & File1.Filename, List1
  109.       
  110.       Label1.Caption = UCase$(File1.Filename) & " is compressed with PKZip (" & Format$(List1.ListCount) & " files in this archive)."
  111.    Case "ARJ"
  112.       List1.Clear
  113.       List1.Visible = True
  114.       AddARJfiles Dir1.Path & "\" & File1.Filename, List1
  115.       
  116.       Label1.Caption = UCase$(File1.Filename) & " is compressed with ARJ (" & Format$(List1.ListCount) & " files in this archive)."
  117.    Case "LZH", "LHA"
  118.       List1.Clear
  119.       List1.Visible = True
  120.       AddLZHfiles Dir1.Path & "\" & File1.Filename, List1
  121.       Label1.Caption = UCase$(File1.Filename) & " is compressed with LZH/LHA (" & Format$(List1.ListCount) & " files in this archive)."
  122.    End Select
  123. End Sub
  124.